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STKLMT= 17777 sSTACK LIMIT REGISTER 
PIRGs 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
Shs 5555 S SWITCH REGISTE 
SISPLAv=SuR : 

-#GENERAL PURPOSE REGISTER DEFINITIONS 

do: "0 SGENERAL REGISTER 

Ris “I : GENERAL REGISTER 

Riz ~p : GENERAL REGISTER 

R= “3 :GENERAL REGISTER 

R4= “4 ‘GENERAL REGISTER 

RSs “5 GENERAL REGISTER 

Ros “6 ;GENERAL REGISTER 

R : GENERAL REGISTER 






‘3 
.EQUIV RE,SP :STACK POINTER 
"EQUIV R7°PC :PROGRAM COUNTER 





-#"SWITCH REGISTER ITCH DEFINITIONS 
Swis= 190000 
Sul4= 49090 
Swig= 20000 
Siii2= 10000 
SWll= 4000 
Swld= 2006 
Swos= 1000 
SWOg= 49 

SwO7= 200 
SwOb= 10 

SWOS= 40 

SWO4= A 

Su53= 15 

sWoz= 4 

pol Fe 

SWOOs 1 

-EQUIVY §wOS,SW9 
EQUIV SWO8, SWS 
EQUIV 507; Sw? 
“EQuIv woe’ Swe 
“EQUIV SwOS;Sws 
“EQUIV SwO4)Sw4 
“EQUIV §WO3;Sw3 
“EQUIV SwO2) Swe 
“EQUIV SWOl,SW1 
“EQuiv Swod'Swo 
-#DATA BIT DEFINITIONS (BITOO TO 81715) 
B1T1S= 190000 
BIT14= 40000 
BIT13= 20000 
BiTl2= 10000 
BITli= 4000 
81T10= 2900 
B1T09= 1000 
BITOs= 400 
BITO7= 200 
BrTOe= 100 
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BITOS= 4 
BITO4= 20 
TO3= 10 
TOe= 4 
TQl= @2 
BITOO= 1 
-EQUIV SITOS,BITS 
-EQUIV 81T08,81TS 
-EQUIV BSITO?,8IT7 
-EQUIV BITO&,BITE 
EQUIV Bt ine arta 
-EQUIV BITOY,BiT4 
bait 81T03,8IT3 
-EQUIV BITOe,BITe 
-EQUIV BITO1,BIT! 
-EQUIV 8IT00,8IT0 
*BASIC “CPU” TRAP VECTOR QODDRESSES 
RRVEC= 4 IME OUT AND OTHER ERRORS 
RESVEC= 10 i RESER ver AND ILLEGAL INSTRUCTIONS 
Ter tyecs 14 $ 
TVEC= 14 : TRACE trap 
BETVECS 14 “BREAKPOINT TRAP (BPT) 
IOTVEC= 20 s INPUT “OUTPUT TRAP (IOT) ##SCOPEs« 
PWRVEC= 24 ;POWER FAIL 
EMTVEC= 30 i EMULATOR TRAP (EMT) ##ERRORSe 
TRAPVEC=34 TRAP” TR 
TKVEC= 60 TTY KEYBOARD VECTOR 
TPV s+ :TTY PRINTER VECTOR 
EIROVEC =240 : PROGRAM INTERRUPT REQUEST VECTOR 


-SSTTL TRAP CATCHER 


-=0 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A”. +2, HALT” 
:*#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
:#LOCATION O CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


.SBTTL STARTING ADDRESS.ES) 
.=200 


JMP 28. START : JUMP TO STARTING ADDRESS OF PROGRA™ 
-21100 
“START: RESET 
3: MOV aSTACK, SP 
MOV #340, P 
MOV kSTACK, SP :SETUP THE STACK POINTER 
MOV #STRAP. JRTRAPVES : TRAP VECTOR FOR TRAP CALLS 


MOV #340, JATRAPVEC+2 VEL 
MOV BSPWRON, JBPWRVEC tBSNER Fal LURE VECTOR 
MOV 8340, JBPURVEC+2 sLEVEL 


MOY #DEVSVC,a84 
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NE BACK 
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MP RESUME 
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090109 
177560 
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ie 
ooc080 


O1214¢ 
104404 


O21: 
104404 


MACY11 
AD 


092974 
009340 
093536 
160000 
002072 
302072 
000282 
002072 
099019 

O72 


001646 
oded72 


00143 


ll 27(7 
DRESSES 


090094 
00009& 


002072 


002072 
177610 


173000 


po2072 


“WORD a 
“HSB fersr0 
“WORD 908. 
WORD 600 


RESUME: MOV #NEWSVC,4 
MOV #340,6 
MOV #TABLE Re 
mov #160006, Tac 

TEST: CMP TAG, (R2) 

BEQ ap 

CMP TAG, #177540 

BEQ AD 

TST JTAG 

MOV TAG, (R1)+ 


REPEAT: ADD #10, TAG 
CMP TAG, &177610 


BEQ FIN 
IMP TEST 
AD: CMP TAG, #173000 
BEG SKIP 
ADD #6,Re F 
ADD #10, TAG 
IMP TEST 
FIN: MOV #0,(R1) 
MOV a#LiST.R1 
TYPE, TITLE 
TYPE, HOR 
TYPOUT: 
MOV (RL) +,-(SP) 
TYPOS 
“BYTE 9 
Ov (R1)+,-(SP) 
TYPOS 
-BYTE QO 
OV (R1)+,-(SP) 
TYPOS 
-BYTE 6 


BYTE QO 
TYPE, MCRLF 
TST {R1) 


\ } 
BNE TYPOUT 
MOV (R1)+,-<SP) 


TYPOS 
-BYTE 6 
BYTE 0 


ee 


:SAVE (R1)+ FOR TYPEOUT 
:G0. TYPE--OCTAL ASCII 
:TYPE & DIGITS 
:SUPPRESS LEADING ZEROS 
:SAVE (R1)+ FOR TYPEOUT 
:G0 TYPE--OCTAL ASCII 

& DIGIT 


; TYPE 

;SUPPRESS LEADING ZEROS 
;SAVE (R1)+ FOR TYPEOUT 
;G0_TYPE--OCTAL ASCIT 

: TYPE & DIGITS 
;SUPPRESS LEADING ZEROS 


SAVE (R1)+ FOR TYPEOUT 
;G0_ TYPE--OCTAL ASCIT 
;TYPE & DIGITS 
;SUPPRESS LEADING ZEROS 
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DOgACA.P1! STARTING ADDRESS: ES) 
318 of2024 104400 001352 TYPE , UNKNOWN 
319 002030 UNNON: 
320 pe03 O12148 MOV (RL) +, -(SP) :SAVE (R1)+ FOR TyPEQUT 
#2) 23 I aos TYPOS G0 TYP=--OCTAL 
32 ak) ne .BYTE § TYPE & DIGITS 
323 002935 900 .BYTE 9 !SUPPRESS LEADING ZEROS 
304 902036 104490 001403 TYPE MCRLF 
325 00042 O0S711 TST (RI) 
326 902044 01371 BNE_UNNON 
32? COs04s 900000 
38 002059 000137 001100 HP START 
330 002054 062737 0019000 902072 SKIP: ADD #1000,TAG 
331 902062 062702 000006 ADD #6, Re 
332 02066 909137 o01846 IMP TEST 
#33 S0ea72 sog0ce TAG: .WORD O 
335 
336 goe07 74 918718 001874 NEWSVC: MOY REPEAT, (SP) 
$30 862ioc 8860 RTI 
333 903900 .=3000 
340 0032000 op205° LIST: .BLKW 2000 
53 5 ERAS RAREFREREA ALLELES REALE REL FL ALLELAERERRELFRELEAA ESSA LFFFSTE 
x ip’ 
343 .SBITL TYPE ROUTINE 


345 ;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
346 :ATHE ROUTINE WILL INSERT A NUNGER OF NULL CHORACTERS AFTER A LINE FEED. 
347 ;#NOTEL: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
348 : #NOTEC: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
348 ; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
35 ;*CALL: 
se :#1) USING A TRAP INSTRUCTION 
#3 :* «TYPE ~—, MESADR ;MESQDR IS FIRST ADDRESS OF AN ASCIZ STRING 
© 3 FV 
355 ‘i TYPE 
see s MESADR 
wolf 
| Ke 192) USING A JSR. INSTRUCTION 
, 35 ‘+ MOV ~ P§,=(SP) ;°USH PROCESSOR STATUS WORD ON THE STACK 
| 360 :e JSR PC STYPE SCALL_TYPE ROUTINE 
| #1 i MESADDR ;FIRST ADRESS OF MESSAGE 
ode 
| 3€3 907000 105737 o07115 $TYPE: TSTB  STPFLG 15 THERE A TERMINAL” 
| 363 307009 iooobe BPL sd 
3 O07006 000000 | HALT SALT HERE IF NO TERMINAL 
| 366 907010 900407 BR cs ; LEAVE 
| «©3867 007012 010046 1$: MOV RO, -( SP) ; RO 
| 38 607014 017699 ooog02 MOV get SP) ,RO :GET ADDRESS OF ASCIZ STRING 
369 007020 11204 2$: MOVB (RO)+,-(SP) :PUSH CHARACTER TO BE TYPED ONTO STACK 
370 07022 O01005 BNE 4S F IT ISN’T THE TERMINAT 
371 097024 906726 TST = (SP) + TF = TERMINATOR POP IT OFF THE STACK 


| 38 Bbrose b13e00 Mov (SP)+, RO ;REST 
| 373 007030 Obe71é oo0dd2 38: ADD #2, (SP) —« GROJUST RETURN PC 
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DDGACA.P1L TYPE ROUTINE 


















374 907034 goonoe RTI :RETUR 
He Mose BOT TI4 os; odes SF tic. (SP) $80 Pe Me FOR FILLER. CHARS. ? 
re fa-1-) 7 : C we ° 2 
eGR isnt ENEe 3S ie Ad CAMESEOR.E 
37g 00 013746 O07112 MOV —« §NULL, =(SP) GET 8 OF FILLER Xtuape NEEDED 
” 
389 oo7os4 105366 00001 6S: OECB 1(SP) SOOES AT NULL NEED TO BE TYPED? 
381 o070e0 O0B77 Bt & 'BR IF NO--Go POP THE NULL OFF OF STACK 
385 07062 OO4737 OOTD70 JSR «PC, 78 ‘G0 TYPE A 
353 007068 900772 BR rE 
384 Goro idsc°r? ooool2 7§:  TSTB  a$TPS iWAIT UNTIL PRINTER IS READY 
385 907074 100375. SPL . 
366 007076 116677 oo0002 00004 MOVE -2(SP),aSTPB sLOAD CHAR TO BE TYPED INTO DATA REG. 
38> 07104 o0020° RTS si 
388 007108 177564 STPS: 177564 :TTY PRINTER STATUS REG. ADDRESS 


30 ?lle Fs TAINS R FILLS 
331 S07il3 OCe SFILLS: .BYTE 2 : CONTAINS # OF FILLER CHARACTERS REQUIRED 
332 007114 Qlz SFILLC: .BYTE le ; INSERT FILL CHHRS. AFTER A “LINE FEED” 
333 007115 000 STPFLG: .BYTE 0 ;" TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
2 PETTereritrririrertcrrrrttttrrrrrttrrirtrtrerre rete errertre rt Te 
3% .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


40 A * MoV NUM, -(SP) sNUMBER TO 7 TYPED 
aah  % TYPOS s CALL FOR TYPEOUT 
402 :# .BYTE ON :N=! 19 6 FOR NUMSER OF DIGITS TO TYPE 
403 * "BYTE *M=i 0 RO 
335 x :1=TYPE LEADING ZEROS 
m3 ii i CIGUPBRESS LEADING ZEROS 
| 407 ¥$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
woe ; #7 YPOS OR $TYPOC 
40S :#CALL: 
410 x MOV NUM, -(SP) ;NUMBER TO BE TYPED 
Hi i TYPON :CALL FOR TYPECUT 
| #3 |S S1YPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
] ; *CALL: 
| 4IS 1 MOY NUM, - (SP) ;NUMBER TO BE TYPED 
| iB :x .. TYPOC -CALL FOR TYPEOUT 
| 418 OO711B O17646 900000 $TYPOS: MOV Q(SP),< (SP) sPICKUP_THE MODE 
| 19 C5712 116637 600001 007341 MOVE 1(SP)'SOFILL “LOAD ZERO FILL SWITCH 
420 007130 112637 007343 MOVB = (SP) +. SOMODE+1 :NUMBER OF DIGITS 70 TYPE 
421 O07134 062716 o00002 ADD #2, (SP) !ADJUST RETURN ADDRESS 
455 907140 ooo40E BR STYPON 
| 433 007142 112737 OCO001 007341 STYPOC: MOVE #1,$OFILL SET THE ZERO FILL SWITCH 
| 424 007150 112737 000006 007343 MOVE #6, SOMODE+1 -SET FOR STXi6) DIGITS 
| 425 907155 112737 000005 007340 STYPON: MOVE #5, SOCNT sSET THE ITERATION COUNT 
| 426 OO71E4 O10346 MOV R3,-(SP) SAVE R3 
| 437 -OO7166 =O10446 MOV RY’ -(5P) s SAVE RY 
428 007170 O10SHE MOV RS’ -(SP) :SavVE RS 
| 429 907172 112704 007343 MOVB  S$OMODE+1,R4 :GET THE NUMBER OF DIGITS TO TYPE 
} 
| 
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NEG RY 
ADD #6,R4 sSUBTRACT IT FOR MAX. ALLOWED 
NOV RY goo E :SAVE_IT FOR U 

MOV SOFILL. RY *GET THE 2 Ro” LL SWITCH 

MOV 12(SP), RS sPICKUP THE INPUT NUMBER 


BR ; GO 
2 ROL RS *FORM THIS DIGIT 
3$: ROL R3 :GET LSB OF THIS, {DIGIT 
DECE SOMODE ; TYPE THIS DIGIT? 
BIC 177770,R3 :GET RID OF JUNK 
BNE 43 FOR 
TST RY : SUPPRESS THIS 0? 
BEQ =3 YES 
4$: INC R4 SOON’ T SUPPRESS ANYMORE 0’S 
ars #'0,R3 :MAKE THIS DIGIT ASCII 
S$: BIS #’ 3 R3 : MAKE SCT IF NOT ALREADY 
MOVB = R23, BS ‘SAVE FOR TYPIN 
: TYPE  ,8$ G0 TYPE THIS DIGIT 
7$ DECB  $0CNT :COUNT BY 1 
BGT 2g ‘BR IF MORE TO DO 
BLT 6$ :BR IF DONE 
INC RY : INSURE LAST DIGIT ISN’T A BLANK 
BR 2 :GO DO THE LAST DIGIT 
6$: MOV (SP)+,RS RESTORE RS 
MOV (SP )+°R4 *RESTORE RY 
MOV (§P)+:R3 -RESTORE R3 
MOV 2(SP)*4iSP) :SET THE STACK FOR RETURNING 
MOV (SP)+! (SP) 
RTI :RETUR 
8$: .BYTE 0 :ST ORAGE FOR ASCII DIGIT 
‘BYTE : TERMINATOR FOR TYPE ROUTINE 
SOCNT: .BYTE 0 sQCTAL DIGIT COUNTER 
SOFILL: :BYTE 0 :2ERO FILL SWITCH 
SOMODE: 0 NUMBER OF DIGITS TO TYPE 


SEE RT TET ETE T TT ET TT TT TTT TE TT TT TTT ETE LT ETT OnT ier etter err ereyrs 
-SBTTL POWER DOWN AND UP ROUTINES 


*POKER DOWN ROUTINE 
$PWRDN: NOV #SILLUP, DHPWRVEC 


SET FOR FAST UP 
#340 0, EPURVEC +2 


MOV -{Sp ais Ro ON STACK 
MOV RY (SP) *PUSH RI ON STACK 
MOV Re,-(SP) PUSH Re ON STACK 
MOV R3,-(SP) iBUS R3 ON STACK 
MOV RY; -(SP) USH RY ON STACK 
MOY RS, - (SP) :PUSH RS ON STACK 


SSAVRE :SAVE SP 
#SPWRUP , J#PWRVEC :SET UP VECTOR 
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BR 2 ;HANG UP 






247 FURUP: HOY SSAVRE, SP 
Ro 455 Pe BRRVRE. iNET L LOOP FOR THE TTY 
nory7s iS: INC  $SAVRE ‘WAIT FOR THE INC 






















1$ SOF WORD 
MOV SP)+,RS :POP STACK INTO RS 


POP 
MOV SP)+°RO -POP STACK INTO RO 

907344 900024 MOY #SPWRON, JHPWRVEC :SET UP THE POWER DOWN VECTOR 

000340 oo0d2s MOV #340, DHPURVEC+S :PRIO:7 

007474 TYPE , SPOWER -POWER FAIL MESSAGE 

SILLUP: HALT ;THE POWER UP SEQUENCE WAS STARTED 
BR 2 : BEFORE THE POWER DOWN WAS COMPLETE 
‘PUT THE SP HERE 


$SAVRE: O 
047520 O4eS2e7 SPOWER: .ASCIZ <15><12>"POWER” 


EVEN 
5 5 RRR ARERR REAR EEK A EER EEE REAR EERE EEE E EERE EE ERE EAE REE REALE EEE RE 
.SBTTL TRAP DECODER 


enue ROUTINE WILL PICKUP THE LOWER BYTE OF THE rt INSTRUCTION 

AND_USE IT TO INDEX THROUGH THE TRAP TOBLE FOR THE STARTING ADDRESS 
SOF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*G0 TO THAT ROUTINE. 


STRAP: MOV RO, -(SP) sSAVE RO 
ooc0%2 MOV 2($P) RO :GET TRAP ADDRESS 
TST -(RO) ;BA 
MOYB (RO), RO :GET RIGHT rue OF TRAP 
007524 MOV STRPAD(RO) RO : INDEX TO TABLE 
RTS RO GO TO ROUTINE 


-SBTTL TRAP TABLE 


;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED: 
*BY THE “TRAP” INSTRUCTION. 


ROUTINE 

STRPAD: 
$TYPE : CALL=TYPE TRAP+O( 104400) TTY TYPEOUT ROUTINE 
STYPOC : CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING 
STYPCS : CALL=TYPOS TRAP+4( 104404) TYPE OCTAL NUMBER (NO LEADING ZE 
ST YPON : CALL=TYPON TRAP+6(104408) TYPE OCTAL NUMSER (AS PER LAST C 
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RESUME 


RVEC= 0 4 
REPERT O01674 


901620 


ppeaca.Pll 
AD 001716 
Back OO116E 
BITO = 000901 
BIT00 = 900001 
BITO1] = O0OC02 
8ITOe = 000004 
BITO3 = 000010 
BITO4Y = O000e0 
SITOS = 900040 
SITOS = 000100 
BITG7 = 000200 
BSITOS = 000400 
BITOS = 001090 
BITi = Q00002 
BIT1O = 002009 
BITi1 = 904000 
BITle = 9190008 
BIT13 = 020000 
BITi4 = 040000 
EIT1§ = 100000 
BIT2 = 000004 
BIT3 = 000016 
BIT4 = 0000 
BITS = O00040 
BITE = 909100 
BIT? = 000260 
BIT8 = 000400 
BIT§ = O01000 
BME73 001277 
SPTVEC= OO0014 
DEVSVC 001214 
DISPLA= 177570 
Li} 1244 
DL11A 001323 
DR11 001255 
DULL 001234 
“ENTVEc= 000030 
| ERRVEC= 900904 
FIN o1744 
FINISH 901334 
GNS = F£4EEE 
| HDR 001406 
| IOTVEC= 000020 
Kill 001266 
KWIIL S01l3le 
LIST 03000 
| MCRLF 001403 
| NEWSYC 002074 
| PC =%000007 
PIRQ = 177772 
PIRGVE= 000240 
(PS = 177776 
| PS = 177776 
| PhRVEC= 00002 
| 
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RESVEC= 009910 188% 
RO =%000000 119% 2eSx 227 228 229 g30 231 E32 e332 240 










s7e% 47r 498% 518 519% 20 S2lx eek est 

Rl =*000001 120% 2e$* 228s ecg* 230% 233% 237% 238% 239% 240% 
e3s 303 307 3le 314 320 3e5 478 497% 

Re =".00090e lelt 274¥ 278 291k 331% 479 496% 








cP =%090036 127% elb% 218% C41% 299% rt lh 314% SN 336% 





3 
STACK = 901100 108% 216 218 
STKLMT= 177774 113% 
Ba = 190590 115% © 116 
SwO = 090001 1568 
SwOo = 90090: 1468 156 
SWOi = OO000e 14S¢ 18 
SwO2 = 000004 i44e (154 
Wo = O000i0 i4ge = 183 
SwO4 = 999020 1423152 
SwoS = o000us I4ie 151 
SWOB = 000100 140% = 180 
Swo? = 000200 1398 = 149 
Swoe = O00400 1388 6148 
SwO9 = 001000 i37# = 147 
SWl_ = 990002 1558 
SWiO = 02000 1368 
Ew11 = 904000 135% 
SWi2 = 010000 1348 
SWi3 = O20000 1338 
SWi4 = 040000 1328 
SWiS = 100900 1318 
Swe = 000904 i5hs 
SW3 = OOODIO 153¢ 
cw4H == 00000 1528 
SwS = O00040 1518 
SWB == 000100 1508 
cu? = 000200 1488 
Ewe = OOo400 1488 
WS = 001900 1474 








29e% 330% 333% 
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Ivo 
° 
z 
wu 


194406 


097534 
001190 
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308 


467% 


429 
499 


420% 
eel 


5368 


S34 
537 


433 
208% 


328 


315 


432% 


491% 
223 


537% 


468% 
214% 
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321 536% 
443% 469% 
505% 
5388 


339% 








340% 





388 





389 





390 
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ROD 23202285 i 28]82 300 73H 
89 B79siBLC (GC (CC tiCB 
BGT nee 
SI¢ 495 
SIS 4eD 45} 
BLT 31 0-486 é oo! 
BNE a i i 
a 386 3S 4220 437 HSS ESO 
ENE eS SDs2SE 3 
EMEB 376 
beck 39544 SH 
ENT 105 : 
HOLT e027 BS SséESO 
TNC >) i 
Mae zi a 
MOV 216 = sE1?—— 218i (asa (GD iB] BE EBB 
238 BHO HL GE CPS HPS 23S 
> a . wma wm ts GS a i 
S305 7 477 4787S BD 4B 
‘ 46 02C~<CS SS DS8 18 ae te 
| te SS . 
RESET «218 
2b 238 C3388 HH 
ae e38 33° 374 4E4 $02 
TREP = 8 om sy E at oe 
322 cogs SBE REEL 520 
ASCII SC 
| sciz ESO 
Suh o7tU 
/:BYe 30) 32 305 2% 309 310 316 317 322 
| st HEP ES 
‘ Nea. me 59 
| 2 clo | ee a C=) +) oC: 2 C 7) Oe 
| 317 le BSE OSL SS 98B 
ew te te ie if? we 4800 
wl ics eeow i ( — ? Lf 9 
| ~- i 22 135 ig 195 180 181 1g2 183 
et ‘ & ~ y 
| LIF s 107 187 185 206 e211 218 219 #221 
338 40=— 36 iédh?:—<éséiEC(<iésCidS CG CCB 
es e250 EZS—(asiEBS EES CEPsE8 
|. IFF rt 
i ) 8-4 ow = . 
| TIF “34 s 104 206 219 223 300 304 308 
260383 ECE EXOD? 
IRE Bit 477? 83 
LIST. pa: © 8 86199 20S‘ GS GS 





2 230 
238 307 
441 460 
43% 433 
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MCALL =—-90 91198 fF ; 
Nai l 4 83 139 206 ell 245 525 534 — ws «535 , 536 $37 
REPT 20 
“3307. . 209 207 343 3% 472 Sll Seb 

isike 

WORD 208 24s 24s 24? 24s 249 250 251 22 253 2s4 2s5 

23 260 es] ete 263 264 265 26s 267 268 333 


ERRORS DETECTED: 2 
DEFAULT GLOBALS GENERATED: 0 

2009A0R, DOGACA. SEQ/SOL ORF “DS: ERFZ EN: Q8S=2DSKM: SYSMAC. SML,OSKM: DDGACA.F 11 

RN-TiNe: 20 18 1 SES 


RineTice RATA: 89 a8=1<€ 
CORE USED: elk 1 PRSES 
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